home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Mouseup.cpt / mouseup magazine / card_2301.txt < prev    next >
Text File  |  1988-08-18  |  4KB  |  165 lines
  1. -- card: 2301 from stack: in
  2. -- bmap block id: 13037
  3. -- flags: 0000
  4. -- background id: 2721
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=29 top=49 right=128 bottom=334
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseup
  22.   get the scroll of Card field 1
  23.   PUT IT INTO CARD FIELD 2--tells us what the scroll is for script
  24.   if it  <16 then--the scroll is number of lines scrolled times the
  25.     --height of the font
  26.     show card field 5
  27.   end if
  28.   if it >16 and it <128  then
  29.     show card field "3"
  30.   end if
  31.   if it ‚â•128 and it <198  then
  32.     show card field "4"
  33.   end if
  34.   if it ‚â•198   then
  35.     edit  script of card field 1--this card--this script
  36.   end if
  37.  
  38. end mouseup--to exit this script click on OK
  39.  
  40.  
  41. -- part 2 (field)
  42. -- low flags: 00
  43. -- high flags: 0002
  44. -- rect: left=356 top=75 right=99 bottom=393
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: 
  53.  
  54.  
  55. -- part 3 (field)
  56. -- low flags: 81
  57. -- high flags: 2002
  58. -- rect: left=33 top=140 right=257 bottom=328
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 3
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: 
  67. ----- HyperTalk script -----
  68. on mouseup
  69.   hide card field 3
  70. end mouseup
  71.  
  72.  
  73. -- part 4 (field)
  74. -- low flags: 81
  75. -- high flags: 0002
  76. -- rect: left=28 top=138 right=275 bottom=315
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 12
  82. -- style flags: 0
  83. -- line height: 16
  84. -- part name: 
  85. ----- HyperTalk script -----
  86. on mouseup
  87.   hide card field 4
  88. end mouseup
  89.  
  90.  
  91. -- part 5 (field)
  92. -- low flags: 81
  93. -- high flags: 0002
  94. -- rect: left=150 top=145 right=176 bottom=392
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 0
  98. -- font id: 3
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: 
  103. ----- HyperTalk script -----
  104. ON MOUSEUP
  105.   HIDE CARD FIELD 5
  106. END MOUSEUP
  107.  
  108.  
  109. -- part 6 (button)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=439 top=43 right=76 bottom=466
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 12008 / 12008
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Front Page
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   go to card id 3310 of stack "mouseUP"
  124. end mouseUp
  125.  
  126.  
  127.  
  128. -- part contents for card part 1
  129. ----- text -----
  130. (In this illustration the asterix symbol
  131. like this: * indicates a button. This is a standard we have used throughout the mouse
  132. and I would suppose we will continue using.)
  133.    
  134. Two weeks ago I saw an advertisement for putting "sticky buttons" in a scrolling field.*
  135. It cost $8.00 for a disk to tell how to do it and I figured it was worth $8.00 to know this and show it to you. So I ordered it. But it hasn't arrived yet! Then I looked at the 
  136. "scrolling fields" demonstration by Irv Kanode.* So I guess I've been thinking about it. In any event I was watching the news this evening and I figured out how to do it. And as a bonus I got to call and cancel my order for the istructional disk. If you want to learn how to do this click here.*   
  137.  
  138. -- part contents for card part 5
  139. ----- text -----
  140. NOT IN THIS INSTANCE. I MEAN LATTER. GEE!
  141.  
  142.  
  143. -- part contents for card part 4
  144. ----- text -----
  145. Irv Kanode
  146. Kanode Associates
  147. 4709 E. Sandra Terrace
  148. Phoenix, AZ 85032
  149. 602-482-3155
  150.  
  151. From an idea by Mike Steiner on Genie Hypercard interest group
  152.  
  153. -- part contents for card part 3
  154. ----- text -----
  155. Stack Exchange
  156. Heizer Software
  157. 1941 Oak Park Blvd. Suite 30
  158. Pleasant Hill, CA 94
  159.  
  160. Brian Molymeaux
  161. 1-415-943-7667
  162.  
  163. -- part contents for card part 2
  164. ----- text -----
  165. 211